home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / AMIGA / AMICUS / AMICUS01.ADF / ABasicStuff / Sounds / Entertainer.bas < prev    next >
BASIC Source File  |  1985-12-04  |  1KB  |  35 lines
  1. 10    screen 0,4
  2. 20    ?at(0,10);
  3. 30    ?:?"Press 'ESC' to end music":?
  4. 40    ?"<after> tune has finished"
  5. 50    on error goto 320
  6. 60    audio 15,1
  7. 70    read l,p
  8. 80    if p=0 then 100
  9. 90    x=sound(15,0,L/2.2,64,p*2)
  10. 100   for x=1 to L:next
  11. 110   goto 70
  12. 120   '
  13. 130   ' line 150 causes vibrato effect
  14. 140   '
  15. 150   data 680,13000
  16. 160   '
  17. 170   data 300,430,300,406,300,380,600,240,300,380,600,240,300,380,1080,240
  18. 180   data 300,0
  19. 190   data 300,226,300,210,300,198,300,186,300,240,600,210,300,186,300,240,600,210,1080,240
  20. 200   data 300,0
  21. 210   data 300,430,300,406,300,380,600,240,300,380,600,240,300,380,1080,240
  22. 220   data 300,0
  23. 230   data 300,284,300,320,300,340,300,284,350,240,700,186,300,240,300,250,310,284,1080,210
  24. 240   data 300,0
  25. 250   data 300,430,300,406,300,380,600,240,300,380,600,240,300,380,1080,240
  26. 260   data 300,0
  27. 270   data 300,226,300,210,300,198,300,186,300,240,600,210,300,186,300,250,600,210,1080,240
  28. 280   data 500,0
  29. 290   data 300,240,300,210,310,186,300,240,300,210,720,186,300,210,300,240,300,210
  30. 300   data 310,186,300,240,300,210,720,186,300,210,300,240,300,210
  31. 310   data 310,186,300,240,650,210,310,186,300,250,650,210,650,240,400,320,300,0,400,480
  32. 320   get a$:if a$=chr$(3) or a$=chr$(27) then end
  33. 330   for x=1 to 1000:next
  34. 340   restore 150:resume 60
  35.